home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest87 / dracula < prev    next >
Encoding:
Text File  |  1989-07-18  |  979 b   |  24 lines  |  [TEXT/MARS]
  1. ;       2ND ICWS COMPETITION ENTRY
  2. ;
  3. ;       NAME :  DRACULA.1
  4. ;
  5. ;       PROGRAMMER :  MARTIN STENT
  6. ;
  7. START   MOV     TRAP    @TARGET1  ; PUT SPLIT HOLD
  8.         SUB     #4      TARGET1   ; INSTRUCTION ALL
  9.         ADD     #4      TRAP      ; THROUGH CORE SPACED
  10.         JMZ     START   TRIGGER   ; FOUR APART
  11. WIPE    MOV     TARGET2 @TARGET2  ; THEN WIPE OUT ALL
  12.         DJN     WIPE    TARGET2   ; OTHER PROGRAM
  13. KILLIMP MOV     2       <KILLIMP  ; FINALLY GO BACK 
  14.         MOV     TARGET2  <KILLIMP ; AND KILL OFF ANY
  15.         JMZ     KILLIMP TARGET2   ; IMPS LEFT ALIVE
  16. WAITING JMP     0       0         ; TILL HELL FREEZES
  17. TARGET1 DAT     0       #-11      ; LOCATION OF NEXT SPLIT
  18. TARGET2 DAT     0       #-8       ; POINTER FOR WIPE
  19. TRAP    SPL     14      0         ; SPLIT TO HOLD INSTRUCTION
  20. HOLD    SPL     1       0         ; SOUL TRAP
  21.         DJN     -1      TRIGGER   ; INFORM MAIN LOOP WHEN SOUL IN TRAP
  22. TRIGGER DAT     0      #0         ; SOUL TRAP FLAG
  23. ;        END
  24.